> A <- read.table(file="indicatori_benessere.txt")

> A

> PCA <- princomp(A)

> PCA

> biplot(PCA)

> plot(PCA)

> summary(PCA)

> PCA$loadings

> cor(A)

> plot(A)